Imports System.Data.SqlClient
Imports System.Drawing
Imports DevExpress.XtraGrid
Imports DevExpress.XtraGrid.Views.Base
Imports DevExpress.XtraGrid.Columns
Imports DevExpress.XtraEditors
Imports DevExpress.XtraScheduler
Imports DevExpress.XtraScheduler.UI
'--- Created Date On : 08-Oct-2010 (Gyana)

Public Class frmNoOfPatientSeen

    Private mintPatientId As Integer
    Private mstrReportType As String

    Private Sub frmRegistrationWizard_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
          
            dteFromDate.EditValue = Format(DateAdd(DateInterval.Day, (-7), Today), gstrDtFormat)
            dteToDate.EditValue = Format(Today, gstrDtFormat)
        Catch ex As Exception
            MessageBox.Show(ex.Message, gstrMessage, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Call AddErrorLog("Error " & Err.Number & " (" & Err.Description & ") in Procedure " & _
                 Reflection.MethodBase.GetCurrentMethod.Name & " Of " & Me.Name)
        End Try
    End Sub

    Private Sub btnContinue_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnOk.Click
        Try
            Call ShowNoOfPatientsReport(dteFromDate.EditValue, dteToDate.EditValue, Me.ParentForm)

        Catch ex As Exception
            MessageBox.Show(ex.Message, gstrMessage, MessageBoxButtons.OK, MessageBoxIcon.Error)
            Call AddErrorLog("Error " & Err.Number & " (" & Err.Description & ") in Procedure " & _
                 Reflection.MethodBase.GetCurrentMethod.Name & " Of " & Me.Name)
        End Try
    End Sub

End Class
